home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / IsHex.ass < prev    next >
Encoding:
Text File  |  1980-10-26  |  301 b   |  27 lines
  1.  
  2. # IsHex(r3:LONG)(LONG)
  3.  
  4.     .text
  5.     .global    _IsHex
  6.  
  7. _IsHex:
  8.     cmpwi    r3,"0"
  9.     blt    .false
  10.     cmpwi    r3,"9"
  11.     ble    .true
  12.     cmpwi    r3,"A"
  13.     blt    .false
  14.     cmpwi    r3,"F"
  15.     ble    .true
  16.     cmpwi    r3,"a"
  17.     blt    .false
  18.     cmpwi    r3,"f"
  19.     bgt    .false
  20. .true:    li    r3,-1
  21.     blr
  22. .false:    li    r3,0
  23.     blr
  24.  
  25.     .type    _IsHex,@function
  26.     .size    _IsHex,$-_IsHex
  27.